<%

Public Function Encripta(sOriginal)
    
    Encripta = ""
    
    For nPosicaoAtual = 1 To Len(sOriginal)
    
        sCaracterAtual = Mid(sOriginal, nPosicaoAtual, 1)
        
        nAsciiNovo = Asc(sCaracterAtual) + 128
        
        If nAsciiNovo > 255 Then nAsciiNovo = nAsciiNovo - 255
        
        Encripta = Encripta & Chr(nAsciiNovo)
        
    Next

End Function

%>